home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / db3ledge / closeout.prg < prev    next >
Encoding:
Text File  |  1986-01-12  |  672 b   |  39 lines
  1. ******************** ( CLOSEOUT.PRG ) jay kenney 8/25/85
  2. CLEA
  3. @ 15,20 SAY 'Do you want to close out the month? '
  4. STORE ' ' TO OPTION
  5. ?
  6. WAIT '                                    ? ' TO OPTION
  7. IF OPTION<>'Y'
  8. RETURN
  9. ENDIF
  10. STORE '     ' TO X
  11. CLEA
  12. @ 1,15 say 'Filename should be first 3 letters of month and year. ì
  13. '
  14. @ 6,30 say " EXAMPLE = NOV85 "
  15. @ 15,20 SAY 'Please enter filename : ' GET X
  16. READ
  17. IF X='        '
  18. ? CHR(7)
  19. ?
  20. ? '.................................................OOOOOOOOPS ! ì
  21. '
  22. ?
  23. RETURN
  24. ENDIF
  25. USE LEDGER
  26. SET SAFETY ON
  27. SET TALK ON
  28. CLEA
  29. COPY TO &X
  30. ZAP
  31. SET SAFETY OFF
  32. USE DEPOSITS
  33. COPY TO DEP&X
  34. ZAP
  35. SET TALK OFF
  36. RETURN
  37.  
  38. RETURN
  39.